# load packages

pacman::p_load(tidyverse, psych)

### table A.1 (summary statistics) ----

# load data
pools <- read_rds("data/survey.rds")

# create dummies
pools <- pools %>%
    fastDummies::dummy_cols(c("family_status", "education")) %>%
    select(age, male, religious, pool_visitor, starts_with("education"), starts_with("family_status")) %>%
    select(-education, -family_status)

describe(pools)

# clean
rm(list = ls())